home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1995 September
/
JCSM Shareware Collection (September 30th 1995 Author to Vendor Edition) (JCS Distribution).ISO
/
db_fullf
/
12150m01.ziv
/
INSTALL.EXE
/
lha
/
DLITE
/
CREATE.FRB
(
.txt
)
< prev
next >
Wrap
FrontRunner Binary Module
|
1991-06-01
|
7KB
|
181 lines
CREATE FILE
DBF_NAME
ERRFLAG
COUNTER
ERRFLAG
ERRFLAG
@)F3
DBF_NAME
DBF_NAME
!!!!!!!!
Data base file name?
DBF_NAME
@)FA &
DBF_NAME
DBF_NAME
DBF_NAME
DBF_NAME
DBF_NAME
DBF_NAME
already exists.
ERRFLAG
One moment please . . .
FIELD_NAME
FIELD_TYPE
FIELD_LEN
FIELD_DEC
NFIELDS
NBYTES
DLITE.DBF
NFIELDS
NBYTES
NFIELDS
&@I@d
DLITE
AFLAG
FLDTYPE
FLDLEN
FLDDEC
FLDCOUNT
AFLAG
FLDCOUNT
Enter field
FLDCOUNT
?d)I)+d
for data base. Or <ESC> when done.
ERRFLAG
AFLAG
FLDCOUNT
ERRFLAG
$@)F3
FLDTYPE
FLDLEN
FLDDEC
$@)Fd
$@iK3
!!!!!!!!!!
FIELD NAME:
FLDTYPE
FIELD TYPE:
FLDTYPE
CDNLM
FLDLEN
@Z 999
FIELD LEN :
FLDDEC
FIELD DEC :
AFLAG
AFLAG
Are you finished?
Enter field
FLDCOUNT
?d)I)+d
for data base. Or <ESC> when done.
ERRFLAG
$@)FA
Empty field name. Press <ESC> to exit.
FLDTYPE
Field type must be C, N, D, L, or M.
FLDLEN
Field length cannot be zero. Press <ESC> to exit.
FLDDEC
FLDTYPE
Field decimals must be zero except numerics.
FLDLEN
FLDTYPE
Field length must be 8 with Date field.
FLDLEN
FLDTYPE
Field length must be 1 with Logical field.
FLDLEN
FLDTYPE
Field length must be 10 with Memo field.
FLDLEN
FLDTYPE
Field length exceeds dLITE numeric precision.
FLDLEN
FLDTYPE
Character field must be less than 255 characters.
ERRFLAG
COUNTER
COUNTER
COUNTER
_0123456789
COUNTER
ERRFLAG
Field Name must begin with Letter and contain A-Z,0-9,or _
COUNTER
COUNTER
COUNTER
ERRFLAG
FLDCOUNT
FLDCOUNT
Enter field
FLDCOUNT
?d)I)+d
for data base. Or <ESC> when done.
FIELD_NAME
FIELD_TYPE
FLDTYPE
FIELD_LEN
FLDLEN
FIELD_DEC
FLDDEC
FLDCOUNT
AFLAG
AFLAG
Edit field data?
AFLAG
Use <PgDn> and <PgUp> to move through fields. <ESC>=done
AFLAG
AFLAG
** DEL **
FIELD_NAME
!!!!!!!!!!
FIELD NAME:
FIELD_TYPE
FIELD TYPE:
FLDTYPE
CDNLM
FIELD_LEN
@Z 999
FIELD LEN :
FIELD_DEC
FIELD DEC :
AFLAG
*@A& &
8@A& > =!
2@A& >
Field
>)I)+)Nd
. <ESC>=done
DLITE.DBF
AFLAG
AFLAG
Create new data base?
AFLAG
dlite
NBYTES
RECCNT
MEMOFLAG
NBYTES
FIELD_LEN
NBYTES
RECCNT
RECCNT
FIELD_TYPE
MEMOFLAG
DBF_NAME
MEMOFLAG
RECCNT
NBYTES
FIELD_NAME
&@I@d
FIELD_TYPE
FIELD_LEN
FIELD_DEC
MEMOFLAG
DBF_NAME
DBF_NAME
DLITE.DBF